Sense My FEUP - April 2016 Data

SenseMyFEUP data

Data loading

Data is filtered by travelmode (car and bus) and date (April 2016).

Top 10% points

    Min.  1st Qu.   Median     Mean  3rd Qu.     Max. 
     1.0      9.0     37.0    828.1    189.0 873300.0 

ECDF

# Classifying points by day for ECDF 
df_intersession_april <-mutate(df_intersession_april, class = ifelse(hour(time) >7 & hour(time) < 20, 
                        "day",
                        "night"))
df_osm_edge <- df_intersession_april %>% 
  merge( y = df_osm_edge, by = "way_id") 
ggplot(df_osm_edge, aes(points, color= class)) + 
  scale_x_log10() + stat_ecdf(geom = "step")

ECDF all by #points

rr ecdf_all ecdf_day ecdf_night

ECDF by #sessions

Map points April 2016

Showing maps

Traffic Map April 2016

Traffic day Map April 2016

Traffic night Map April 2016

Map Intersession time all 1.30h.

Map Intersession time (<1.3h) day.

m_itm_day <- m
m_itm_day

#mapshot(m_night_semsessions, file = "~/maps/top_intersessions_night_april.png")

Map Intersession time (<2h)night.

m_itm_night <- m
m_itm_night

#mapshot(m, file = "~/maps/_all_april.png")

Intersession times

Intersession time

ECDF

Lowest 35%

By date

Speeds

Speed by week

Speed by day

Speed by hour

Number of session per hour

Ways_ids per half hour